home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO018.dsk / APPLE.VISION.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  24 lines
  1. 100  REM   *** APPLE-VISION ***       WRITTEN BY R.J. BISHOP
  2. 110  LOMEM: 16384: CLEAR 
  3. 120  PRINT  CHR$(21): TEXT : HOME 
  4. 130  VTAB 10: HTAB 10: PRINT "*** APPLE-VISION ***"
  5. 140  VTAB 20: HTAB 3: PRINT "COPYRIGHT 1978 APPLE COMPUTER, INC."
  6. 150 D$ =  CHR$(4): ONERR  GOTO 280
  7. 160  PRINT D$"BLOAD APPLE.V.CODE"
  8. 170  PRINT D$"BLOAD APPLE.V.ROOM"
  9. 180  HOME :G = 49232: POKE G +7,0: POKE G +2,0: POKE G,0
  10. 190  POKE 48688,0: POKE 48689,11
  11. 200  GOSUB 320: VTAB 4: HTAB 25: PRINT "HOME": HTAB 27: PRINT "SWEET": HTAB 30: PRINT "HOME": GOSUB 320
  12. 210 A$ = "       BOB BISHOP PRESENTS ... APPLE-VISION!       "
  13. 220  FOR K = 1 TO 45: VTAB 13: HTAB 12: PRINT  MID$ (A$,K,7): FOR J = 1 TO 100: NEXT J,K: GOSUB 320
  14. 230  CALL 2893
  15. 240  GOSUB 330: VTAB 13: HTAB 13: PRINT "THE": HTAB 15: PRINT "END": GOSUB 310: VTAB 13: HTAB 13: PRINT "   ": HTAB 15: PRINT "   "
  16. 250  FOR J = 1 TO 5: IF  PEEK(49152) <128  THEN  GOSUB 330
  17. 260  NEXT 
  18. 270  IF  PEEK(49152) <128 GOTO 220
  19. 280  POKE 216,0
  20. 290  POKE 49168,0: PRINT  CHR$(4)"PR#0": TEXT 
  21. 300  PRINT  CHR$(4)"-STARTUP"
  22. 310  GOSUB 330
  23. 320  GOSUB 330
  24. 330  FOR K = 1 TO 500: NEXT : RETURN